home *** CD-ROM | disk | FTP | other *** search
/ Amiga Inside! / Amiga FD Inside (1995)(Ultramax).iso / berndspd / systemtools / exgexe / install exgexe < prev   
Encoding:
Text File  |  1994-06-03  |  2.7 KB  |  164 lines
  1. ; Install script for ExgExe)
  2.  
  3.  
  4. ;*********
  5. ; Strings
  6. ;*********
  7.  
  8.  
  9. (set #bad-kick
  10. (cat "You must be using Kickstart 3.0 or higher to install using this script!"
  11. ))
  12.  
  13.  
  14. (set #copy-main "\n\n\n\n\nInstall the ExgExe command?")
  15. (set #copy-main-help
  16. (cat "\nThis will install the ExgExe program."
  17. ))
  18.  
  19.  
  20. (set #copy-cfg "\n\n\n\n\nInstall the default configuration\n\"s:ExgExe.cfg\"?")
  21. (set #copy-cfg-help
  22. (cat "\nThis will install the default configuration."
  23. ))
  24.  
  25. (set #copy-doku "\n\n\n\n\nInstall the AmigaGuide documentation?")
  26. (set #copy-doku-help
  27. (cat "\nThis will install the AmigaGuide documentation."
  28. ))
  29.  
  30.  
  31. (set #install-msg
  32. (cat "\n\n\nInstallation program for\n\n"
  33.      "============\n"
  34.      "ExgExe 1.2\n"
  35.      "============\n\n"
  36.      "(c) 1994 by Stefan Hochmuth\n"
  37.  
  38. ))
  39.  
  40.  
  41. ;*******************************************
  42. ; make sure Kick 3.0 or higher is available
  43. ;*******************************************
  44.  
  45. (if (< (/ (getversion) 65536) 39)
  46. (
  47.     (abort #bad-kick)
  48. ))
  49.  
  50.  
  51. (message #install-msg)
  52.  
  53. (welcome)
  54.  
  55.  
  56. ;*****************
  57. ; Install Program
  58. ;*****************
  59. (if
  60.     (askbool
  61.         (prompt #copy-main)
  62.         (help #copy-main-help)
  63.         (default 1)
  64.     )
  65.     (
  66.         (set exgdest
  67.             (askdir
  68.                 (prompt "Please select a drawer for ExgExe\n"
  69.                 )
  70.                 (help @askdir-help)
  71.                 (default "c:")
  72.                 (newpath)
  73.             )
  74.         )
  75.  
  76.         (copyfiles
  77.             (prompt "Installing ExgExe...")
  78.             (source "ExgExe")
  79.             (noposition)
  80.             (help @copylib-help)
  81.             (dest exgdest)
  82.         )
  83.  
  84. ;********************
  85. ; Add to user-startup
  86. ;********************
  87.         (set oldlevel @user-level)
  88.         (if (> oldlevel 0) 
  89.             (user 2)
  90.         )
  91.         (startup "ExgExe"
  92.             (command (tackon exgdest "ExgExe >NIL:")
  93.             )
  94.             (prompt (cat    "\n\n\n\nReady to add \"" 
  95.                         (tackon exgdest "ExgExe")
  96.                          "\" to s:user-startup?"
  97.             )
  98.         )
  99.         (help @startup-help)
  100.         )
  101.     
  102.         (user oldlevel)
  103.     )    
  104. )
  105. ; ******************************
  106. ; Install Default Configuration
  107. ; ******************************
  108.  
  109. (if (NOT (exists "s:ExgExe.cfg"))
  110.     (if
  111.         (askbool
  112.             (prompt #copy-cfg)
  113.             (help #copy-cfg-help)
  114.             (default 1)
  115.         )
  116.         (
  117.             (set cfgdest (cat "s:"))
  118.     
  119.             (copyfiles
  120.                 (help @copyfiles-help)
  121.                 (prompt #tocopy) 
  122.                 (source "ExgExe.cfg")
  123.                 (dest cfgdest)
  124.             )
  125.         )
  126.     )
  127. )    
  128.  
  129.  
  130. ;***********************
  131. ; Install Documentation
  132. ;***********************
  133.  
  134. (if
  135.     (askbool
  136.         (prompt #copy-doku)
  137.         (help #copy-doku-help)
  138.         (default 1)
  139.     )
  140.     (
  141.         (set guidedest
  142.             (askdir
  143.                 (prompt "Please select a drawer for ExgExe's\n"
  144.                     "AmigaGuide documentation:")
  145.                 (help @askdir-help)
  146.                 (default "SYS:Utilities/guides")
  147.                 (newpath)
  148.             )
  149.         )
  150.         
  151.         (copyfiles
  152.             (prompt "Installing Documentation...")
  153.             (source "ExgExe.guide")
  154.             (infos)
  155.             (noposition)
  156.             (help @copylib-help)
  157.             (dest guidedest)
  158.         )
  159.     )
  160. )
  161.  
  162. (set @default-dest exgdest)
  163.  
  164.